home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / applications / 3141 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  1.2 KB
  1. Path: news.delphi.com!usenet
  2. From: Stanley Anderson <anderson4@delphi.com>
  3. Newsgroups: comp.sys.amiga.applications
  4. Subject: Re: Font Sample Printing Utility?
  5. Date: Sun, 10 Mar 96 22:25:04 -0500
  6. Organization: Delphi (info@delphi.com email, 800-695-4005 voice)
  7. Message-ID: <hXDK8iY.anderson4@delphi.com>
  8. References: <4hvjd2$hm6$1@mhadf.production.compuserve.com>
  9. NNTP-Posting-Host: bos1f.delphi.com
  10. X-To: Michael Loader <76711.2617@CompuServe.COM>
  11.  
  12. The following macro for FinalWriter will print a page of text in varying
  13. sizes from 10 point to 36 point.  Modify at your pleasure.  The macrois
  14. public domain, and can be used, modified, rewritten, whatever by any one
  15. for any purpose at any time.
  16.  
  17. rz
  18. B00000000000000
  19.  
  20. Options Results
  21.  
  22. lib = 'rexxarplib.library'
  23. IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,-0,-30,0)
  24. IF ~SHOW('L',lib) THEN EXIT 20
  25.  
  26.      Result = GetFile(10,20,'work:finalwriter','')
  27.      ChosenFont = Result
  28.      n = Lastpos("/",ChosenFont)
  29.      Name = substr(ChosenFont,n+1)
  30.      Size = 10
  31.      Font ChosenFont
  32.      do i = 1 to 15
  33.           Fontsize Size
  34.           Type "This is an example of "Name" in "Size" Point."
  35.           NewParagraph
  36.           Size = Size + 2
  37.           end
  38.  
  39.  
  40. Stan Anderson
  41.